(* Copyright (c) 1994,95 xTech Ltd, Russia. All Rights Reserved. *)

<*# IF NOT __GEN_X86__ THEN *>

<*+M2EXTENSIONS *>

DEFINITION MODULE [2] platform; (* Ned 15-Feb-94. *)

     VAR
       pl_unix -: BOOLEAN;
       pl_vms  -: BOOLEAN;
       pl_msdos-: BOOLEAN;
       pl_amiga-: BOOLEAN;
       pl_fatfs-: BOOLEAN;

       extSep -: CHAR;
       pathSep-: CHAR;
       pathBeg-: CHAR;
       pathEnd-: CHAR;
       drvSep -: CHAR;
       lineSep-: ARRAY [0..7] OF CHAR;
       textSep-: ARRAY [0..7] OF CHAR;

<*# ELSE *>

DEFINITION MODULE platform; (* Ned 15-Feb-94. *)

CONST
  pl_unix  = FALSE;
  pl_vms   = FALSE;
  pl_msdos = TRUE;
  pl_amiga = FALSE;
  pl_fatfs = TRUE;

  extSep  = '.';
  pathSep = '\';
  pathBeg = '\';
  pathEnd = '\';
  lineSep = 15C + 12C;
  textSep = 15C + 12C;
  drvSep  = ':';

<*# END *>

PROCEDURE IsPathDelim(c: CHAR): BOOLEAN;

END platform.
